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About This Book 


This book contains simple games 
programs to play on a microcomputer. 

They are written for use on ZX8 1 , ZX 
Spectrum, BBC, VIC 20, 

TRS-80 and Pet and Apple micros, and 
many are short enough to fit into the 
ZX81’s IK of memory. 

Most micros use the language BASIC, 
but they all have their own variations or 
dialects. In this book, the main listing for 
each program works on the ZX8 1 and 
lines which need changing for the other 
computers are marked with symbols and 
printed underneath. The fact that the 
programs are written for several micros 
means that they do not make full use of 
each one's facilities. You could try 
finding ways of making the programs 
shorter and neater for your micro. 

For each game, there are ideas for 
changing and adding to the programs 
and towards the back of the book you 
will find tips and hints on writing games 
of your own. Also in the book is a 
conversion chart to help you adapt 
programs in magazines and other books 
for your micro and a summary of the 
BASIC terms used in this book. 

Typing in the programs 

Lines which need changing for 
computers other than ZX81 are marked 
with these symbols: 

* VIC and Pet 

* BBC and Acorn Electron 
■ TRS-80 

* Apple 
s ZX Spectrum 

Every time you see the symbol for the 
micro you are using, look below for the 
corresponding line number with the 
same symbol and type that in instead, 

VIC 20 versions of All except the graphics program should work on 
Pet computers. 


Points to remember 

1 Type the lines exactly as they are printed 
including all punctuation and spaces. 

2 Press RETURN, NEWLINE or ENTER 
key at the end of each program line. 

3 Check each line as you go. 

4 Make sure you don’t miss out a line or 
confuse one with another, A piece of paper 
or a ruler is useful to mark your place in 
the listing. 

5 Look out for the symbols and make sure 
you use the correct lines for your 
computer. 

6 If you are using a ZX81 or ZX Spectrum, 
remember not to type the program 
instructions letter by letter but to use the 
special key for each instruction instead. 

You may find it easier to get someone to 
read the program out to you while you 
type it in. Don't forget to explain that they 
must read every comma, fullstop, bracket 
and space and differentiate between letter 
"O" and zero, FOR and 4, and TO and 2. 

Debugging programs 

When you have typed 
in the program, check 
your manual to find out 
how to display it on the 
screen, (Usually you 
type LIST followed by 
the line numbers of the 
section you want to 
see.) 
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Check you have 
typed everything 
correctly. It is easy to 
make mist akes, so 
expect to find some. Use 
your manual to find out 
how to make changes to 
the program once it is 
typed in. If in doubt, you 
can always type the line 
again. All the computers 
will replace an existing 
line with a new one with 
the same number. 

Here is a checklist of common 
mistakes to look out for: 

1 Line missed out 

2 Line wrongly numbered 

3 The beginning o f one line joined onto 
the end of another. 


4 Brackets, commas, colons, semi- 
colons, fulistops or spaces missed out, 
especially in long, complicated lines. 
Watch for double brackets in particular. 

5 Wrong line used for your computer. 

6 Letter “0" confused with zero. 


7 Wrong numbers used, e.g. extra zeros 
included. 


Playing the games 


To start the game you must type RUN In 
some games things happen very quickly, 
so make sure you have read the 
instructions and know what you are 
supposed to do. 

It is quite likely that the program still 


has a mistake in it and either won't 
at all or the game won’t work properly. 
Sometimes your computer will give you 
an error code which you can look up in 
the manual. This may help you find the 
mistake, though not always. List the 
program again and check it carefully 
against the book. 

When the game is over, the computer 
will usually say something like BREAK IN 
LINE 200. To play again, you have to type 
RUN. 


Experimenting with the games 


There are suggestions for changing and 
adding to the programs throughout the 
bock, but don't be afraid to experiment 
with changes of your own. You can’t 
damage the computer and you can 
always change back to the original if the 
changes don't work. 

You will probably find you want to 
adjust the speed of some games, * 
especially after you have played them a 
number of times. You will find out which 
line to change on each program page. 

Wherever you see 
PRINT, you can 
change the message 
quotes that follows it 
whatever you like. 

Also, unless you have 
ZX8 1 with only IK, you 
can add extra 


messages. 

Type a line number (say 105 if you want 
to add a message between lines 100 and 
1 10), then type PRINT, then your 
message inside quotes. 

If your computer can make colours 
and sounds, you could use your manual 
to find out how they work and try adding 
them to the games in this book, 


See page 37 for a special note tor BBC an d Spectrum users. 
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Starship Takeoff 

You are a starship captain. You have crashed your ship on a 
strange planet and must take off again quickly in the alien 
ship you have captured. The shipfa computer tells you the 
gravity on the planet. You must guess the force required fora 
successful take off. If you guess too Low, the ship will not lift 
off the ground. If you guess too high, the ship’s fail-safe 
mechanism comes into operation to prevent it being burnt 
up. If you are still on the planet after ten tries, the aliens will 

capture you. 







How to m ake the g am e harder 


You cart change the program to give 
you less than 1 0 goes. Do this by 
altering the last number In line 80 and 
the number in line 130. (They must be 
the same.) 




Puzzle corner 

You could change the range of possible 
forces. See if you can work out how. 


a*10 CLG 
20 PRINT 


Howthe program works 


* Clears the screen. 


"STARSHIP TAKE-OFF" 


Multiplies the number in G 
by number in Puts result 

in JL 

Prints GRAVITY and number 
inG. 

Asks you for a number. 

This begins a loop which tells 
the computer to repeat the next 
section 10 times, to give you 
10 goes. 

Stores your number in F. 


130 IF CO 10 THEN PRINT % TRY AGAIN" Prints if you’ve had less 

than 10 goes without a correct 
answer. 


140 NEXT C — -■* £iidofloop,Goesbackto80 

ISO PRINT ~| fox another turn. 

160 PRINT 11 YOU FAILED — " I Prints after 10 unsuccessful 

170 PRINT "THE ALIENS GOT YOU" I «***■ 

100 STOP 

190 PRINT "GOOD TAKE OFF M 
The above listing will work on a ZX8 1 . For 
other computers, make the c hanges below. 

•10 HOME 

a 10 PRINT CHR*U47) 

0 LET G=INT (RND tl > *20) 

■30 LET G-INT (RND (O) *20) 

*4#40 LET W=INT (RND ( 1 > *40 > 

■40 LET W-INT (RND (0> *40) 


Computer selects two 
numbers - one between 1 and 
20 to be put in G, the other 
between I and 40 to be put in W. 


50 LET R-G*W 


60 

PRINT 

"GRAVITY- 

“(G- 

70 

PRINT 

“TYPE IN 

FORCE 

80 

FOR C= 

1 TO 10 — 



90 INPUT F 


100 

1 10 

120 


IF F>R THEN PRINT " TOO HIGH 
IF F<R THEN PRINT "TOO LOW" 
IF F=R THEN GOTO 190 


■nj 

; f— « 

J * 


Compares number in F with 
number in K and prints 
appropriate message or 
jumps to 190, 


*■*•30 LET G-INT<RNB*20+I)~| i 
*■*•40 LET W= I N.T ( RND * 40+ 1 > J 





Intergalactic Games 

There is fierce competition among the 
world’s TV companies for exclusive 
coverage of the First Intergalactic Games. 
Everything depends on which company 
wins the race to put a satellite into orbit at 
the right height. 

You are the Engineer in charge of the 
launch for New Century TV. The crucial 
decisions about the angle and speed of the 
launching rocket rests on yourshoulders. 
Canyon doit? 


■ i i • i i i • i i t i i i s i i i 1 | II f | | || J |1 |J | | 

jQZOZOZO ” [“O ” Q “0 ZQ j _ 1 _ 1 j j _ 1 _ 1 _! _t _ 1 _ 1 ■ _ 1 1 _i 

m i < m n i i i i i i i i i n i iif 



How the program works 


60 PRINT 11 ENTER ANGLE C0-9O) 
70 INPUT A 


■} 


1 0 PR INT INTER SAL AC 1 1 C GAMES 1 ' Chooses the height to which 

★■*#20 LET H-INT(RND*iOO+l> ymimwiUmdhy^ 

30 PRINT "YOU MUST LAUNCH A SATELLITE 14 ! satellite, puts it in H and 

40 PRINT "TO A HEIGHT OF K ;H J prints it, 

50 FOR G-l TO B ™ imi Beginning oflooF to give you 

S goes. 

~ r *- T '™ T " Msks you for an angle and 
puts it in A. 

Asks you for a speed and puts 

it m V. 

Uses H to calculate what the 
^ an gle should he and 

subtracts this from your 
guess to find out how close 
you were. 

— Works out what the speed 
should he and. subtracts it 
from your guess. 


SO PRINT "ENTER SPEED (0-400001 
INPUT V 


■1 


10O LET A=A-ATNIH/3>?lB0/3. 14159 


110 LET V=V-30O0*SGR (H+l /H> ' 


120 IF ABS<A)<2 AND ABSCVXIOO THEN BOTD 200 > 


’Checks if 


130 IF A<-2 THEN PRINT "TOO SHALLOW 
140 IF A >2 THEN PRINT "TOO STEEP" 
ISO IF V<-lOO THEN PRINT "TOO SLOW” 
160 IF V>10O THEN PRINT "TOO FAST” 


T- 


you were close enough to 
win and if so jumps to 2 10. 


170 NEXT C 
I BO PRINT 
i^O PRINT 
200 STOP 
210 PRINT 
220 PRINT 
230 STOP 


'“YOU* VE FAILED 
"YOU’RE FIRED" 


■} 


Prints an appropriate 
comment to help you with 
your next go. 

Goes back for another go. 


"YOU’VE DONE IT" 

"NCTV W INS-THANKS TO YOU 



■Prints after ® unsuccessful 
goes. 


Print® if yon win * 


The above listing will work on a ZX81. For 
other computers, make the changes below. 
#20 LET H“INT (RND (01 *100+1 > 
★*#20 LET H=INT (RND (1> *100+1 > 


=/ 
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Adding to the program 

These three extra lines will make the 
computer give you bonus points 
depending on how quickly y ou make a 
successful launch. 


222 LET B=INT (lOOO/G) 

22S PRINT "YOLTVE EARNED A*' 

227 PRINT "BONUS OF " ; B; " CREDITS 



Puzzle corner 

t 

Can you change the program so that, if 
you win, it automatically goes back for 
another game, adding the bonus you’ve 
already earned to any new bonus? 
(Hint: you nee d to change two lines 
and add one.} 

See how long you can play before 
NCTV tires you. 






Evil Alien 



Somewhere beneath you, in deepest, blackest space, 
lurks Elron, the Evil Alien. You have managed 
to deactivate all but his short-range weapons 
but he can still make his ship invisible. 
You know he is somewhere within the 
three-dimensional grid you can see 
on your ship's screen (see 
below), but where? 
You have four space bombs. 
Each one can be exploded at 
a position in the grid 
specified by three numbers 
between 0 and 9, which 
your computer will ask 
you for. Can you blast 
the Evil Elron out 
of space before he 
creeps up and 
captures you? 





i*5 CLS 

10 PRINT “EVIL ALIEN- 
20 LET S=10«— — 


30 LET G— 4 



★■*•40 LET X=INT(RNDtS> 
★■*•50 LET Y=INT(RND*S> 
★■*•60 LET D-INT (RND*S>^ 

70 FOR 1 = 1 TO G 


80 PRINT M X POSITION (0 TO 9)7“ 
85 INPUT XI 

90 PRINT M Y POSITION <0 TO 9)7" 
100 INPUT Y1 

110 PRINT M D I STANCE (O TO 9>? ,t 
120 INPUT Dl 


How the prog ra m works 

- Sets the size o t the grid, 

- Sets the number of gees. 




Elron’s position is fixed by 
these 3 lines, which select 3 
numbers between 0 and the 
size of the grid. 

Start of a loop which tells the 
computer to repeat the next 
IS lines G times. 


■ This section asks you for 
your 3 numbers and stores 
them in XI, Y! and Dl. 




See page 2 for meaning of 


130 IF X=Xl AND Y=Y1 AND D=D1 THEN GOTO 300 

140 PRINT “SHOT WAS "j 
150 IF Y1 >Y THEN PRINT "NORTH"; 

160 IF YKY THEN PRINT "SOUTH"; 

170 IF X1>X THEN PRINT "EAST”; 

ISO IF XI <X THEN PRINT "WEST"; 

190 PRINT 

200 IF Dl >D THEN PRINT "TOO FAR" 

210 IF D1<D THEN PRINT "MOT FAR ENOUGH" 


220 NEXT I 


— Checks if 
you were 
right and jumps to 
300 if you were. 

Your guesses are 
- compared with Elron’s 
position and a report 
printed. 


1 End of loop. Returns for 
another go. 

M YOUR TIME HAS RUN OUT H <p — Prints if youVe used up all 

your goes. 

f ' t BOOM * YOU GOT H I M ! " Prints if you guessed right. 


230 PRINT 
240 STOP 
300 PRINT 
310 STOP 

The above listing will work on a ZX8 1 . For 
other computers, make the changes below 
•5 home 

*5 PRINT CHR*<147> 

*★•40 LET X= I NT i RND (11 SS > 

■40 LET X=INT (RND (OJ »S> 
★*•50 LET Y= I NT (RND ( i > SS> 

■50 LET Y=INT(RND *S) 
★*•60 LET D=INT(RND< 1 ) *S) 

■60 LET D= I NT ( RND ( 0 1 *S > 


How to make the ga me harder 

This program has been written so that 
you can easily change the difficulty by 
changing the size of the grid. To do this, 
put a different value for S in line 20. 

If you increase the grid size you will 
need more space bombs to give you a 
fair chance of blasting Elron, Do this by 
changing the value of G in line 30, 


Puzzle corner 

Can yon work out how to change the 
program so that the computer asks you 
fora difficulty number which it can put 
into S instead of S being fixed? (Tip: limit 
the value of S to between 6 and 30 and 
use INT(S.'3) for the value of G inline 
30.) 








Beat the Bug Eyes 


You're trapped' Everywhere you turn you catch a glimpse of the steely 
cold light of a space bug's eyes before it slithers down behind a rock 
again. Slowly the bugs edge towards you, hemming you in, waiting fora 
chance to bind you in their sticky web- like extrusions. Luckily you have 
your proton blaster with you. 

The bug eyes pop up in four different places on your screen and these 
correspond to keys 1 to 4. Press the correct key while the bug's eyes are 
on the screen and you will blast it. There are 1 0 bugs in all - the more you 
blast, the greater your chance of escape. 


PR I NT 
LET S- 
FOR T- 


■BUG EYES' 


TO 10 


±*40 CLS- 


*■*•50 

60 

*■±*70 

*■±♦00 


FOR 1 = 
NEXT 


TO INI (RND* 30+20 > 


3-INT (RNDJ4+1) 


210+3O*R 


\\ 


90 PRINT "OO" 


G03UB makes the computer 
blanch out of the maim 
program to a kK 5Ub-rout^ne ,, 
(see next page), RETURN at { 
the end of the sub-routine 
sends it backto the main . 
program again. 


How the program works 

Sets the score to zero for st art 

■ of game. 

■ Beginning of loop which 
gives you 10 turns. 

■ Clears screen. 

Delay loop which lasts a 

■ varying length of time, 
depending on the value of 
RND, 

- Chooses a number from 1 to 4 
and puts it in R. 

- Jumps to one of four sub- 
routines depending on the 
value of ft. This gets two 
numbers which correspond 
to a position on the screen - 
il R n spaces across and “D" 
lines down - and then jumps 
again to 350 to move the 
Cursor to this position. 


position, 

fllO LET R*=INKEY4 
120 IF R*< >'* 11 THEN GOTO 140 
130 NEXT I 

140 I F VAL < "0” +R* ) < >R THEN GOTO 210 
150 LET S-S+l = 


-Prints the “bug eyes" at this 


Loops round to see if you are 
-^pressing a key. If you are, 
computer jumps to 140 and 
checks if it is the right one ■ 


Increases score by 1. 


*•160 CLS 


170 GOSUB 350 
ISO PRINT 


- Clears screen 

Sends cursor back to the 

- same position and prints a 
star. 


■*•190 FOR J=1 TO 40 
200 NEXT J 


Delay loop to make star stay 
- on screen long enough for 
yon to see it. 


210 NEXT T 


220 PRINT 11 YOU BLASTED ,p ;5;"/10 BUGS' 
230 STOP ~ 


- Goes back for n ext turn. 
* Prints score. 


240 LET D-5 
250 LET A=1 
260 GOTO 350 
270 LET D=1 
280 LET A=9 
290 GOTO 350 
300 LET D=5 
310 LET A=1S 
320 GOTO 350 
330 LET D= 10 
340 LET A=7 
350 FOR 1=1 TO D 
360 PRINT 
370 NEXT I 
380 PRINT TAB C A) ; 
390 RETURN — 


°Ot- 




The above listing will work on a ZX81. For 
other computers, make the changes below. 
•40,160 HOHE 
*40,160 PRINT CHR* C 147) 

■50 FUR 1=1 TO INTCRND(O) *300+200) 
★*•50 FOR 1=1 TD INT CRND(1 ) *300+200) 
■70 LET R=INT CRND(O) *4+1) 

★*•70 LET R=INT ERNDt 1) *4+1 > 

I ★■*•00 ON R BOSUB 240,270,300,330 
| ★■*•100 FOR 1 = 1 TO 150 

• 105 RS= ,,M 
*110 GET Ri 

★ 110 R*= INKEY* < 1 ) 

•110 IF REEK (-16364) >127 THEN BET R* 
★ ■*•190 FOR .1 = 1 TD 300 


■ Sub-routines. 


How to change the 
speed 


w 


rescan speed the game 
up by changing the last 
number in line 100 to a 
lower one. 






How to use more of 
the screen 

This program was written 
to fit on the smallest 
screen width (which is the 
VIC 20). For the other 
computers, you can 
increase the values of A In 
lines 250, 280, 310 and 340. 
Check your manual to find 
the maximum width your 
computer can use. 


r 

O 

o 



Puzzle comer 

Can you change the program to make 
the bugs appear in more than four 
places on the screen? Can you add more 
bugs too? 


Xi 
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Moonlander 


You are at the controls of a lunar module which is taking a small team of astronauts 
down to the moon’s surface. In order to land safely you must slow down your descent 
but that takes fuel and you have only a limited supply, 

Your computer will tell you your starting height, speed and fuel supply and ask 
how much fuel you wish to bum. It Will then work out your new height and speed. A 
burn of 5 will keep your speed constant. A higher number will reduce it. Try to have 
your speed as close to zero as you can when you land. Can you land safely on the 
moon? 


a# 10 

20 

30 

40 

50 

60 

70 

BO 

90 


CLS 

PRINT 'MOONLANDER 11 
LET T=0 
LET H=500 
LET V=50 
LET F=120 

PRINT “ T I ME " | T , " HE I GHT " ; H 
PRINT * VEL ■ 11 ; V f 11 FUEL * ; F 

IF F=0 THEN GOTO 140 


Notice the commas and semi 
colons in lines 70 and 80. 
Ejq^eriment with leaving 
them out and changing them 
round to see what happens. 



100 PRINT "BURN? <0-30> " 

110 INPUT B 

120 IF B<0 THEN LET B=0 

130 TF B>30 THEN LET B=30 ! 

140 IF B>F THEN LET B=F 

150 LET Vl=V-B+5 

160 LET F=F-B 

1 7Q IF <V1+V>/2>=H THEN SOTO 220 



180 LET H=H-(Vl+V)/2 

190 LET T=T+1 

200 LET V=V1 — 


210 GOTO ■■ 

220 LET Vl=V+(5-B> *H/V 

230 IF VI >5 THEN PRINT "YOU CRASH ED- ALL DEAD" 

240 IF V1>1 AND Vl<=5 THEN PRINT "OK-SUT SOME INJURIES*' 
250 IF V1<=1 THEN PRINT "GOOD LANDING." 

260 STOP 

The above listing will work on a ZX81 . Tor 
other computers, make the changes below. 

•10 HOME 

410 PRINT CHR*(147) 

12 Seepage2formeaningofiA 





Adding to the program 


How the program works 


If you add the following linos, you will see astajc 
printed each go. The distance of the star front 
the left-hand side of the screen corresponds to 
your height above the moon. 

05 FOR 1=2 TO H/500*nn 

06 PRINT '■ 

87 NEXT I 
B8 PRINT " 

Replace mt with the width of your screen. 


Sets the starting values for 
time, height, speed and fuel 


Changes to try 

Try changing the values of H, V and F in lines 40 
to GO and see what happens. 



Puzzle corner 

You could make the game easier by increasing 
the maximum speed allowed for a safe landing. 
How would you change the program to do this? 


and prints them. 

If yea have no fuel left, 
computer jumps down the 
program , bypassing the 
section which asks you for a 
bum. It then prints a running 
commentary of your progress 
as you approach the moon’s 
surface, 

Gets a number from you for 
the amount of fuel you wish to 
bum and checks it is within 
the correct limits , 

Calculates your new speed, VI 

Calculates your new fuel level. 

■ Checks if the distance 
travelled in your last go is 
greater or equal to your 
height above the moon. If it 
is, you’ve Landed. Computer 
then Jumps down program to 
see how good a landing you 
made. 

Calculates your new height. 
Increases time by I. 

■ Puts your new velocity into V 
so it will print in line 30 for 
your next go. 

Goes back to beginning of 
loop for next go. 

Calculates your speed on 
touch-down and checks what 
kind of Landing it gives you, 


. v: 




Monsters of Galacticon 

Landing on Galacticon was easy- 
but no-one warned you that some of 
the nastiest monsters in the known 
Universe are to be found there. 

As each monster threatens, you 
must choose one of your weapons'- 
a ray gun, a trypton blaster ora 
sword laser - to use against it. Can 
you make the right choices? If so, 
you may live to conquer Galacticon. 


10 PRINT "MONSTERS OF GALACTICON" 
20 DIM M*<4) 


How the 
program works 

Sets up a storage place (an 
** array") labelled MS with 4 
compartments 

mm andM3{4)- one 
for each monster name* 


30 LET hN4 


Sets the number of monsters 
to 4. 


40 LET M=5 — 

50 LET HKl) 
60 LET 

70 LET H*£3)= 
BO LET t\% ( 4 J = 
90 FOR 1=1 TO 
#■*#100 LET A=1NT 
#■*•110 LET IN I NT 
120 LET T*=M* 
130 LET M*<A> 
140 LET Hti B> 
150 NEXT I 


SULFACIDOft hP 
"FL AtIGDNDAR * 
"BALNOLOTIN" 
"GQLANDDR h 
N " 

(RNDtN+1 J 
(RND*N+1) 
i A) 

~m t 

=T* 


You can use this 
shuffling routine in an 
program where you 
want things to be mixed^ 
up. 


160 FOR T=1 TO B ■ 

*#170 CLS 

#B*#ieO LET R=lNT(RND*N+n 

190 PRINT M MONSTER COMING* P ■ 

200 PRINT "IT'S A H ;M*(R> 

210 PRINT "WHICH WEAPON 7 CR f S OR T) 
220 INPUT R* 

S#**#230 LET W=CDDEtR*N54+R 
#■*240 LET W-W-3# <W>3) -3i ( W>6) 


250 IF W=2 THEN GOTO 300 


- Sets the number of people in 
your gromptoS. 

1 Puts the 4 monster names into 
the array. 

These lines shuffle the 
monsters up. Computer loops 
1 round N times. Each loop, it 
selects two numbers between 
1 andN and switches the 
names in the compartments 
a with those numbers. T$ is a 
temporary string used during 
the switch round process. 

- Beginning of loop for 8 turns. 
■Clears screen 

1 Chooses one of the monsters 
and prints its name . 

The computer uses the values 
an K and R $ to work out a 
■ weapon number, W, which 
will be L 2 or 3. 

If W is 2, the computer jumps 

- to 300 to say you Ve killed the 
monster. 


Seepage 3 for meaning of #*■ #$ 



a-" 


If W la 3, computer jumps to 
320 to say “no effect”. 

Prints ifW is not 2 or X Then 
Jumps to 360 to decrease 
number of people in group by 


260 IF w=3 THEN GOTO 320 — 
270 PRINT "NO USE. IT'S EATEN 
280 PRINT "OF YQUR GROUP" 

290 GOTO 360 


QNF 


one. 


300 PRINT "YOU'VE KILLED IT 11 
310 GOTO 380 
320 PRINT 11 NO EFFECT" 

#■▲•330 IF RND>. 4 THEN GOTO 380 
340 PRINT "VOU ANGERED THE 
350 PRINT ’-KILLED ONE OF VOUR 


M*(R> ; f 
GROUP 1, 


AND 


Leading on from the "no 
effect” line in a random 
. possibility of the monster 
being angered and killing 


360 

370 

#■▲• 38Q 

390 

400 

410 

420 

430 

440 

450 


LET H=H— 1 
IF mi THEN 


GOTO 440 


o> 


FOft 1 = 1 TO 20l 

NEXT I J 

NEXT T' 

PRINT "VOU HAVE SURVIVED TO" 
PRINT "CONQUER GALACTICON 
STOP 

PRINT "YOU'RE ALL DEAD* 1 
STOP 


3 - 


Checks if yon still have some 
people left. If yon haven 1 ! it 
Jumps to 440 to toll you. 

Delay loop to keep messages 
on screen Long enough for 
yon to read them. 

Coes back for next turn. 

Frinfi if you still have people 
left after all your turns. 


The above listing will work on a ZX81. For 
other computers, make the changes below, 

■ 100 LET A=INT (RND CO) *N+1) 
#▲•100 LET A=INT(RNDtl) IN+I) 

■ HO LET B=INTCRNDCO) *N+1) 
★▲•HO LET B-INTCRNDCnaN+1) 

• 170 HOME 

▲170 PRINT CHR*C!47* 

■ 180 LET R=INT ERNDCO) SN+U 
#▲•100 LET R = INT CRNDU) *N+1 > 

#■▲•230 LET W— ASC (R* > ’81 +R 
S230 LET W- CODE C R* ) -0 1 +R 
#■▲240 LET W-W+SI (W>3>+3t tW>6J 
★ ▲•330 IF RND( 1) > - 4 THEN GOTO 3D0 


■ 330 IF RNDfO 1 > . 4 THEN GOTO 380 
#■▲•300 FDR 1=1 TO 300 







Alien Snipers 


Wr/ You ace the captain ol an interstellar cruiser 

WT c -v which, through damage to one of its hyperspace 
P . motors, has strayed into a forbidden area. Alien sniper 

ships are attaching you and, to make things worse, are / 

using a jamming device on your radar which makes it give 
false readings. Luckily your computer knows a code which you 
can use to work out the correct locations of the enemy ships. But you 
must be quick - they don’t stay in one place for long! 

Your computer will print a letter (the false enemy location) and a code 
number. You must think through the alphabet by that number of letters and 
type in the letter you get to. E.g. forM 4, you must type Q, and for C 2, you must 
type E and so on. Typing in a letter automatically triggers off your laser 
gun, so if your letter is correct you'll score a hit. You can choose the 
difficulty of each game. This is a number between 1 and 10 and is the 
maximum number of letters to be added on each time. 

You get 10 alien snipers each game. See how many you can hit. 


How the progra m works 


a#10 CLS 

20 PRINT "ALIEN SNIPERS" 

30 PRINT 

40 PRINT "DIFFICULTY U-10) 

50 INPUT 0 

60 IF D< 1 OR D>10 THEN GOTO 30| 

70 LET S=0 

80 FOR J3-1 TO 10 


Gets a difficulty number from 
you , puts it in D, and checks it 
-is within the correct limits. 


■ Se ta opening score to aero. 


■ Beginning of loop which 
gives you 10 goes. 


*★■*#90 LET L*=CHR*(1NT<RND* t26-D)+30> >- 


★■*•100 LET hf=INT {RNDtD+i )■ 


- Selects a letter between R 
and the letter which is your 
difficulty number before the 
end of the alphabet. 

-Selects a number between 1 


110 CLS 
120 PRINT 
130 PRINT L*, 


and D. 


-Prints the letter and the 
number. 


★■*•140 FOR 1 = 1 TCI 20+D*5 
*I5lSO LET 3S= INKEYt 


160 IF !*<>"” THEN GOTO 190 
170 NEXT I 


Checks if you are pressing a 
-key and jumps to 190 if you 
are. 


190 GOTO 200' 


04A W ^ 


STTCft* - 

Wv ia# 


-If you didn't press a key, 
computer jumps to line 200 
which sends it back for 
another go. 


★■*•190 IF IS-CHR* (CODEfLf >+N> THEN LET S=S+1 
200 NEXT G 


Checks if you 
the pressed 
right key and, 
if so, increases 
-your score by 1. 


210 PRINT "YOU HIT ,> ;S| i, /10 n 
220 STOP 


- End of loop. Goes back for 
another turn. 


- Prints score after 10 goes. 


The above listing will work on a ZX8 L For 
other computers, make the changes below, 

•10, 1 10 HGHE 

PRINT CHR* Cl 47) 

L*-CHR*(INT<RNtMO) * < 26-D>+65>> 
L*=CHR* ( INT fRNDC 1 ) * (2fe~D) +65> 1 
L*=CHR* ClNT ( RND * ( 26-D ) +65> ) 

LET N=3NT(RNDtOJ *D+l J 
LET N= INT ( RND ( 1 ) *0+ 1 ? 

FOR 1=1 TO 200+0*50 
FOR 1 = 1 TO 100+0*50 

LET l*=lNKEY*tlJ 
GET 1* 

IF PEEK <^163641 >127 THEN GET I* 

IF I*=CHK*mSC<LS)+N> THEN LET B=S+1 


*10, 1 10 
■90 LET 
**•90 LET 
s 90 LET 
■ loo 
★*•100 
*■*140 

• 140 

• 145 
*150 
*150 
•150 

★■*•190 


Howto change the 
speed 


If the game m too quick for 
you, put a higher number 
into the middl e of lane 140 
fie. to replace 20 or 200)* 
You can speed if up with a 
lower numbe r. 


How to make the game harder 


You could change the 1 in hues 40 and 
60 to, say, 3 to allow difficulties of only 3 
or more, 


Puzzle corner 

Can yon adjust the scoring so that it fits 
the code number i.e. you score 1 point if 
the code is 1, 2 points if the code is 2 and 


soon? 


Jl7 









Asteroid Belt 


You are on a trip through the Asteroid Belt. To avoid crashing into the 
asteroids, you must destroy them and the force required for doing this 
depends on their size. 

Asteroids appear on your computer screen as groups of stars. To 
destroy them you must press the number key corresponding to the 
number of stars. Be prepared - asteroids come at you thick and fast. 


A.' 




JO PRINT “ASTEROID BELT- 


20 LET S-G 


30 FOR 6=1 TO 10 

±*40 CLS 
*■*•50 LET A=INT CRNDtlB+i) - 


*■*•00 LET B= I NT < RMD 1 1 2+ 1 ) ■ 


*■*•70 LET N=INT $RNDt9+l > ■ 


00 FDR 1=1 TO D 
90 PRINT 
100 NEXT I 


Howthe program works 

Sets the opening score to 
■ iero + 

- Stans a loop which fives W 
goes. 

Chooses a number 

- for the position of the 
asteroid across the screen. 

Puts this in A. 

- Chooses a number (I to 12) 
for the position of the 
asteroid down the screen and 
puts it in D. 

- Chooses a number (1 to 9) for 
the number of stars in the 
asteroid, 

- Moves the cursor D lines 
down the screen . 


HO FDR TO N 

120 IF I < >1 AND 104 AND 107 THEN GOTO ISO 

130 PRINT 

140 PRINT TAB (A) ; 

ISO PRINT ; 

160 NEXT I 

170 PRINT 


- Loops round N times 
printing a star each 
time in the appropriate 
position. 


***•180 FOR 1-1 TO lO 
**•190 LET Q=VALC it O ii + INKEY*> 
200 IF 900 THEN GOTO 240 
*210 NEXT 1 


220 PRINT “CRASHED 
230 SOTO 290 


INTO ASTEROID 


■J 


240 IF Q< >N THEN GOTO 270 


Loops round to see if you are 
■ pressing a key and jumps to 
244 if you are. 


• Prints if you run out of time . 

Checks if your number is the 
- same as N and jumps to 210 if 


it isn't. 






See page 2 for meaning of •* ba - 


sso PRINT “YOU DESTROYED IT" Prints if you pressed the right 

number. 

260 LE T S= S+ 1 Increases yen t score fry one, 

270 IF GKN THEN PRINT "NOT STRONG ENOUGH "1 Compares yoni number with 
280 IF G>N THEN PRINT "TOO STRONG" N and prints an appropriate 

message. 


Delay loop to keep messages 
on screen long enough for 
yon to read them. 


Goes back for another go 


Prints your score after I D 
goes. 


Changing the speed 
of the game 


Line 18Q (190 for the BBC) 
controls how much time 
yon have to press a key. 
Change the last number in 
ISO, or the number in 
brackets in the BBC line 
190, to a lower number to 
speed up the game. 

_ 


Puzzle corner 


Can yon adapt the scoring 
system so that, for each 
asteroid, you get the same 
number of points as there 
are stars in it? 


±•290 FOR 1-1 
300 NEXT I 


TO 50 


310 NEXT 


320 PRINT p " YOU HIT 
330 STOP 


The above listing will work on a ZX81. For 
other computers, make the changes below. 

HONE 

PRINT CHR4U47) 

LET A=INT CRND <0>*19+1 ) 
A-INTtRNDU i *18+1) 
D=1NT (RND 10) *12+1 > 
D—INT CRNDC 1 > *12+1) 
N=INT LRNDTG) *9+U 
N=INT (RND S 1 ) *9+1 > 


FOR 1=1 TO 100 
GET Q 

IP PEEK <-16384) >127 THEN 
Q- INKEY <100) -40 


•40 


*40 


■ 50 


*±*50 


■ 6C 


*60 


70 


*±•70 


• 175 


* 1 BO 


±•190 


± 1 90 


190 


* 190 


★ 210 


*■290 


±•290 


LPT 


LET 


LET 


LET 


LET 


0=0 


1 = 1 
. 1*1 


TO 

TO 


500 

250 


GET 






Trip into the 

Imagine yen are in a 
spaceship travelling 
nearly as fast as light 
Strangely time is 
passing mere slowly 
inside your spaceship 
than outside. So, 
having set off on a long 
fast space trip, you 
can return to Earth 
further in the future 
than the clocks inside 
your ship indicate. 

In this game, your 
computer tells you 
how many years must 
elapse on Earth 
before you return. 

Youthen decide the 
length of your trip (in 
light years) and the 
speed of your ship (as 
a fraction of the speed of 
light) in order to achieve 
this- Take care not to 
travel too far too slowly or 
you will die of old age on the way, 




*•10 cls 

20 PRINT "TRIP INTO THE FUTURE" 
★•*•30 LET T=INT (RND* 100+25) 

40 PRINT "YOU WISH TO RETURN ";T 
50 PRINT "YEARS IN THE FUTURE." 



How the program works 


Chooses a whole no mber 
between 25 and 124 for the 
yean which must elapse 
before your return, and prints iL 


£Q PRINT 










70 PRINT “SPEED OF SHIP CO- 
SO INPUT V 

90 IF V>= 1 OR V<~0 THEN SOTO 


100 PRINT "DISTANCE OF TRIP" 
HO INPUT D 


I ) " n 
D 7oJ 


Gets a speed from yon and 
checks it is within the correct 
limits. 


Gets a distance from toil 



See page 2 for meaning of **** 









140 PRINT " YOU TOOK *' | T1 ; "YEARS 11 
150 PRINT "AND ARRIVED T2j "YEARS" 
160 PRINT “IN THE FUTURE* ” 

170 IF Tl >50 THEN GOTO 210 


ISO IF ABS(T-T2K=5 THEN PRINT "YOU ARRIVED ON 
190 IF ABStT“T2>>5 THEN PRINT "NOT EVEN CLOSE 1 
200 STOP 

210 PRINT "YOU DIED ON THE WAV " 

220 STOP 


The above listing will work on a ZX8 1 . For 
other computers, make the changes below, 

•10 hqhe 

alO PRINT CHR$ ( 147 > 

•30 LET T-INT (RND(O)* 100+25 > 
★*•30 LET T=INT(RND Cl) *100+25) 


Puzzle corner 

Can you work out how to change the 
program to do the following things? 


1) Give a wider range of years which 
must elapse before you return to Earth. 
2> Increase the accuracy required from 
within 5 years to within Z years. 

3) Shorten or lengthen your lifetime. 









ILL. 


Death Valley 



Theie is only one way to escape the forces of the evil Dissectitrons. You 
will have to steel every nerve and fly your single-seater Speed Dart 
along the j agged , bottomless ravine known as D e ath V alley. 

Your computer will ask you for the width of the valley. Try 1 S ‘ first and 
then work your way down- 8 is quite difficult. Steer your Speed Dart by 
pressing Q to go left and P to go right, and see if you can make it safely 
through Death Valley. 

*If you are using a VIC 20, then use widths of 6 to 1 0. 


a 

m ■ ct ar 

I'Mf* 

add 


rm. it / 


ID PRINT iS DEATH VALLEY 11 
20 LET 


30 LET M=200'* 


40 PRINT 'UIDTH'? 11 
50 INPUT W 
60 LET 14-INT CW/2> 


} 


How the progra m works 

Sets the number of goes used 

- to zero for start of game. 

p M is the maximum number of 
goes allowed. 

Gets a width number from 

- you, divides it by 2 and uses 
INTto remove any halves. 


A 70 LET L=1G 
BO LET Y=W 
90 LET R=U 


L, Y and R are tbe distances 
» between walk and Speed 
Dart. 


uf ICTttR r 


(= 10*1 
llUt) 




Y spaces 


I Wi[ 

st art j 




R spaces 


L Wat 
start] 


*»A#IOO LET D=INT<RND*30J 

110 IF L+D<0 OR L+D>20 THEN GOTO 


100 


120 LET l-L+D 
130 LET Y=¥-D 
140 LET R=R+D 


* Selects - L 0 or + 1 and puts it in D. 

Checks L ^ D isn't so big or 
small that columns disappear 
off sides of screen. 


-Changes spaces between 
columns according to the 
value ofD, 


+ D 






+ D 


S**A#145 SCROLL 
150 LET N^L 
160 GOSUB 1000 
170 PRINT "I"; 


Moves cursor L spaces 
across the screen and prints 
* L (The semi-colon then stops 
the cursor going down to the 
next line.) 



ISO LET N=Y 
190 GOSUB 1000 
200 PRINT 11 * M ; 


Moves cursor a furt her Y 
-spaces and prints. * 



210 LET N=R 
220 GOSUB 1000 
230 PRINT "I" 


Mo ves cursor a further R 
spaces and prints another I. 
(No semi-colon this time, so 
* the cursor then goes down to 
the next line.) 


*A«24Q LET I •= INKEY* 


- Check* to see il you are 
pressing a key, 


250 IF l*<> il O M THEN GOTO 2B0 


260 LET Y=¥“ 
270 LET R=R + 




. If the key you are pressing is 
norQ, compute r jumps to 280, 


■ If key is Q then Y is 
decreased by one and E 
increased by one so star 
moves left; 


1*0 M P" THEN GOTO 310 


li 




Checks if key being pressed is P. 

m 








290 LET Y= 
300 LET 


y=Y+n 

R=R-1 h 


310 IF Y< 1 DR R < 1 THEN GOTO 370 


320 LET S=S+1 


330 IF S<H THEN GOTO 100 ■ 


340 PRINT "NELL DONE^YOU HADE IT** 

350 PRINT " THROUGH DEATH VALLEY " p 
360 STOP 

370 PRINT "YOU CRASHED INTO THE WALL" 
3BQ PRINT "AND DISINTEGRATED" 

390 STOP « 

lOQO IF N=0 THEN RETURN 
1010 FOR 1^1 TO N 
1020 PRINT * 

1030 NEXT I 

1040 RETURN — 


U so, 0 1 axil moved right by 
■ increasing Y by one and 
decreasing R by one. 

- Checks if you have crashed 
into a wall - Jumps to 3 W to 
t&H yon if yon have. 

- Increases number of goes 
used by one. 

-Goes back for another turn if 
you have had less than M goes. 

Prints if you have had M goes 
and no crash. 


Sub-routine for moving the 
cursor to the appropriate 
places for printing I and \ 


Slowing down the 
game 

If this game is too fast for 
yon, you can add a delay 
loop at lines 141 and 142: 

141 FDR J=±l TO S00 

142 NEXT J 

Change the number in line 
141 to adjust the speed - 
the lowe r the number the 
faster the game. 


The above listing will work on a ZXB 1 . For 
other computers, make the changes below. 

A 70 LET L=4 

■IGO LET D=INTtRND(Oi *3-1 > 

♦i# 10O LET D— I NT C RND i 1 3 *3- 1 J 

>tlill4S 

• 235 

A 240 GET I A 

♦240 LET I*=INKEY«<n 

•240 IF PEEK (-163S4) >127 THEN GET IS 






Puzzle corner 


How can you make the 
vaMey longer? 







Space Mines 


You are the newly elected leader of a mining 
colony on the Planet JUtron. All decisions 
concerning the sale of ore to Inter galactic 
Traders f food purchase and sale and purchase of 
mines are made by you. Can you keep the people 
satisfied and survive your 10 years in office or 
will life in the colony end in disaster under your 
rule? 





'10 

20 

30 

40 

150 


LET L=INT<RND*3+5S 
LET P- 1 NT < RND* 60+40 ) 
LET M=INT IRND>50+10>*P 
LET FP=INT CRNDt40+SCU 
LET GE^INT mND*40+8QJ 


60 LET C=0 


70 

00 

*UA#9G 


LET 

LET 


S=1 

Y=1 


How the program works 


These lines decide the numbe r of 
mines (L), number of people (P), 

- amount of money (M) s price of 
food(FP) and amount of ore 
produced per mine (CE) for the 
start of the game. 

■ Sets the amount of ore in 
storage to zero for start. 

- Sets the satis faction factor to 1. 

- Sets the year number to 1. 


LET LF=INT IRND* 2000+2000) ' 


★iA#iOO LET CP-XNT(RND#12+7) 
i*110 ELS 

120 PRINT “YEAR"; Y 
130 PRINT 
140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 

ISO PRINT "YOUR NINES PRODUCED ";CE;" TONS EACH" 
190 LET C— C+CECL 
200 PRINT "ORE IN ST0RE=";C 5 
2i0 PRINT "SELLING 41 


-Selects buymg/seLhng price 
for mines. 

- Selects selling price for ore. 


"THERE ARE ";F; M PEOPLE IN THE COLONY." 
"YOU HAVE " ; L; " MINES, AND *"M 
"SATISFACTION FACTOR ; S 


TONS' 


220 PRINT "ORE SELLING PRIGE=";CP 
230 PRINT "MINE SELLING FRICE=";LF; 

240 PRINT "HOW MUCH ORE TO SELL7" 
250 INPUT CS 

260 IF CS<C OR CS>C THEN GOTO 240 
270 LET C=C-CS — — — 


“/MINE" 


Prints current state 
■ of affairs in the 
colony. 


} 


Asks how much ore you want 
■ to sell, puts it CS and checks 
you've got that much in store, 

- Takes amount sold away 
from amount in i 


280 

290 
300 
310 
320 LET 
330 LET 

340 
350 
360 

370 
380 
390 


LET M=H+CS*CP 

PRINT "HOW MANY MINES TO SELL'? 
INPUT LS 

IF L5<0 OR LS>L THEN GOTO 290 
L— L“L5 
M=M+LS*LR 

PRINT 

YOU HAVE 


•Works out how much ore sold 
is worth and adds this to your 
money supply , 

- Does the same process for 
selling mines. 


PRINT 

PRINT 

PRINT 

PRINT 

INPUT 


*";H 


‘Prints your new money supply; 


"BUY I NS' 1 
"HOW MUCH 
FB 


Asks how 

TO SPEND ON FOOD 7 tflPFR. *100 EA. > "t — much yon 

want to 

spendon food and puts this in FB, 


400 IF FB<0 UR F8>H THEN SOTO 380 ■ 


24 


410 LET M^M-FB 


-Checks you have enough 
money to pay. 

- Adjusts your m oney supply. 




4 BO LET M=H - LB * LP ■ Adjusts your money again, 

490 IF S<-6 THEM GOTO 660 ■* — Checks on value of 

satisfaction factor. If this is 
very low, computer pimps to 
6G0 to end the game. 

#■6*500 IF S>I,1 THEN LET CE=CE+INT <RND*20+i J —— If S is high then amount 

produced per mine is 

increased. 


420 IF FB/PM20 THEN LET 5=3+ 
430 IF FB/P<eO THEN LET 5=3^ 




440 PRINT "HOW MANY MORE MINES TD BUY?" 
450 INPUT LB 

460 IF LB<0 OR LB*LP>M THEN GOTO 440 
470 LET L=L+LB ^ 


Adjusts satisfaction factor + 
■■ according to how much yon 


spent on food. 

Asks how many mines you 
-want to buy and checks yon 
can afford them. 

■ Increases number of mines if 
necessary. 


★■6*510 IF S<-9 THEN LET CE=CE- I NT (RND*20+ 1) - 


520 IF P/L< 10 THEN GOTO 6BQ - 


★■6# 530 IF S>1. 1 THEN LET P^P+INT CRMDMO+1 ) 
★16*540 IF S< . 9 THEN LET P=P-INT (RND* 10+1) - 
550 IF P<30 THEN GOTO 700 

★ ■6*560 IF RND >*01 THEN GOTO 590 

570 PRINT "RADIOACTIVE LEAK . . * . MANY DIE 11 
500 LET P- I NT (P/2) 

590 IF CE< 1 50 THEN GOTO 620 
600 PRINT "MARKET GLUT - PRICE DROPS 
610 LET CE= I NT (CE/2> 


1 


620 LET V=Y+i- 


"THE PEOPLE REVOLTED H 

11 YOU T VE OVERWORKED EVERYONE** 

11 NOT ENOUGH PEOPLE LEFT** 


630 IF Y<11 THEN GOTO 90 

640 PRINT " YOU SURVIVED YOUR TERM OF OFFICE 
650 STOP 
660 PRINT 
670 STOP 
6QQ PRINT 
690 STOP 
700 PRINT 
710 STOP 

The above listing will work on a ZX8L For 
other computers^ make the changes below. 

*110 HOME 

6110 PRINT ©HR* it 47) 

★ 6*10 1 20 1 30* 40 , 50 1 90 , 100, 500, 510, 530,540, 560 
change RND to RND(1> 

■10,20,30,40,50,90, 100, 500* 510, 530, 540, 560 
change RND to RWD(O) 

See page 2 for meaning o/*a ■★ 


■ If s low, amount produced is 
decreased. 

■ U there are less than 10 
people per mine, game is over. 

■ More people arrive if S is high. 

- People leave if £ is low. 

- If there ar e less than 30 
people, game is over. 

Introduces small chance of 
half the people being killed. 

If the amount produced per 
mine is very high, ore price is 
halved 

— Year number increased by 1 
and if it is less than 1 1 „ 

, computer goes back to 90 for 
1 another go, 

* Prints if the compu ter 
reaches this stage in the 
program on your lOfhgo. 


zzle corner 


Can you make the 
computer ask if you would 
like anot her game and add 
the money you have ended 
up with to the new money 
supply for the next game? 


Space Rescue 

You must make an urgent trip across the spiral arm of the Galaxy to a 
developing planet which is in need of medical supplies. The trip involves 
such huge distances that for most of it you will be in a deep sleep, but before 
this you must program the ship for the journey. The computer will ask how 
much energy you want to allocate to the engines, life support system and 
shields and then put you to sleep. 

When you wake up, it will give you a report on what happened during the 
trip and, if all went well, you will be orbiting the planet. Y ou must now 
allocate your rent aining ene rgy to the landing boosters and shie Ids in or de r 
to make a good landing on the planet. 

* If you accomplish the mission safely, you stand a good chance of being 
promoted to Space Admiral. Good luck! ■ , 


A*10 

20 
30 
40 
50 

*■*•60 
*■*•70 
.*■*•80 

90 
10O 
HO 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
. 240 
**250 
‘ 260 
• 270 
280 
*■*•290 
*■*•300 
*■*•310 
26 3 20 


CLS 

PRINT 

PRINT 

PRINT 

INPUT 


" SPACE RESCUE* 


"DO YOU WANT INSTRUCTIONS? 

I* 

IF I • < 1 > = " Y “ THEN GOSUB 1000 
LET D- 1 NT ( RND $800+ 101) 

LET E=INT (RND* 400+40 1 > 

LET T=INT(D/SQR(E/5>+.5> 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

INPUT 


"THE PLANET IS ";D;*‘ UNITS AWAY" 
“YOU HAVE " ; E ; " UNITS OF ENERGY'* 
"AND A TIME LIMIT OF ";T;" DAYS" 


"ENERGY DISTRIBUTION! 

“TO ENGINES?" ■ * ’ 

P 

“TO LIFE SUPPORT?" 

L 

"TO SHIELDS?" 

s 

IF P+L+S>E THEN GOTO 140 
LET X=E-P~L— S 
LET V= I NT ( SDR i P> ) 

LET T1=INT(D/V> 

CLS 

PRINT "YOUR VELOCITY IS ";V 

PRINT "YOU HAVE AN ETA OF "jTl;" DAYS" 

PRINT 

FOR 1=1 TO I NT (RND* 5+6 > 

IF RND >.5 THEN GOTO 430 *' “ - • 

GOTO 320+INT (RND*4> *30 - ■? ' V- 

PRINT "ASTEROID STORM - SHIELDS DAMAGED" 


*■*•330 LET 5=5-20- INT(RNDH40+1 > 

• 340 GOTO 430 ■ ' 

350 PRINT "COMPUTER BREAKDOWN - DELAY IN REPAIRING" 
*■*•3*0 LET D=D+INT(RND*20+1 > 

370 GOTO 43b 

380 PRINT "ENGINE TROUBLE - MUST SLOW DOWN" 

. . 390 LET V=V-. 5 , . 

400 GOTO 430 ’ ■ •" 

410 PRINT "X-RAY DAMAGE - LIFE SUPPORT DAMAGED" 

420 LET L=L— 20— INT(«ND*40+1 ) 

★■*•430 FOR J-l TO 50 . 

440 NEXT J - 

450 NEXT I 
.460 LET T 1 = I NT ( D/V) 

*•470 CLS 

480 PRINT "ARRIVED IN ”;T 1 ;" DAYS" 

,490 IF 5<0 THEN PRINT "SHIELDS DESTROYED*' 

495 IF S<0 THEN PRINT "YOU WERE BLOWN UP" ‘ 

500 IF L< =0 THEN PRINT "LIFE SUPPORT INACTIVE" 

505 IF L<=0 THEN PRINT “YOU'RE DEAD" 

510 IF V<=0 THEN PRINT "ENGINES ARE NON-FUNCTIONAL" 
520 IF T 1 >T THEN PRINT "YOU TOOK TOO LONG ABOUT’ IT" 
530 IF SCO OR LC-O OR V <=0 OR Tl>T THEN STOP 
*■*•540 LET G= I NT (RND* 10+5) / 

550 LET GS="HIGH" '] 1 ' 

560 IF GCI2 THEN LET G$="MEDIUM" 

570 IF G <8 THEN LET G*-"LDW" 

★■*•580 LEI A=INT <RND* 10+5) , 

590 LET A*="HIGH" 

600 IF A< 12 THEN LET A*="MEDIUM" 

610 IF ACS THEN L,ET A*="LDW" ; 

620 PRINT . "■ ' . " . ’ *' 

630 PRINT "YOU ARE NOW ORBITING THE PLANET" * 

640 PRINT "SURPLUS ENERGY=";X 
650 PRINT "GRAVITY IS **jG* 

660 PRINT "ATMOSPHERE IS “5 A* 

670 PRINT - * 

6B0 PRINT "HOW MUCH ENERGY TO BOOSTERS?" 

690 INPUT B ■ - 

700 PRINT "HOW MUCH ENERGY TO HEAT SHIELDS?" 

710 INPUT S 

720 IF B+S >X THEN GOTO 690 
*•730 CLS 

,740 IF B>=G*10 THEN GOTO 770 


Program continued on next page. 
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Space Rescue continued 


s* i : 

: 750 

' 760 

' - 770 
780 
790 
* 800 
' 810 
< 870 

830 
840 
1 OOO 
1010 
1020 
1030 
1 040 
1 050 
1 060 
* 1070 
, 1080 
1090 
1 100, 
"1110 
1120 
I 130 
1140 
■*•1 150 
*•1 l 60 
1170 


THEN 

MODE 


GOTO 800 

A WONDERFUL 


SHOOTING STAR" 


PRINT "yOU MADE A NEW CRATER' 

GOTO 840 
IF S>=A*10 
PRINT "YOU 
GOTO 840 

PRINT "YOU LANDED SUCCESSFULLY - WELL DONE" 

IF X-S-B>25 THEN GOTO 840 

PRINT "PITY YOU DON'T HAVE ENOUGH" 

PRINT "ENERGY TO OPEN THE DOOR" 

STOP 

PRINT ' ■ ' 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

IF INKEY*^"" 

CLS 

RETURN ' 


"YOU ARE ABOUT TO EMBARK ON A" 
"MISSION TU A DISTANT PLANET" 

"IN URGENT NEED OF MEDICAL" 
"SUPPLIES. YOU MUST FIRST READY" 
"YOUR SHIP FOR THE TRIP BY" 
"ALLOCATING SOME OF THE SHIP'S" 
"ENERGY TO THE ENGINES, SHIELDS" 
"AND LIFE-SUPPORT. YOU ARE" 

"THEN PUT TO SLEEP FOR THE MAIN" 
"PART OF THE TRIP, AFTER WHICH” 
"YOU WILL GET A REPORT OF THE" 
"EVENTS ON THE WAY. YOU MUST" 

"THEN LAND ON THE PLANET " 

"PRESS ANY KEY” 

THEN GOTO 1150 


The above listing will work on a ZX8 L For 
other computers, make the changes below. 


■all RND to RNOW . 

★*•*11 RND to RND (1 ) ' . 

•10,250,470,730,1160 HOME . ' 

*10, 250, 470, 730, 1 160 PRINT CHRt<147> 

★■*•60 IF LEFTt(It,l>= M Y" THEN GOSUB lOOO 
★■*•310 ON I NT (RND44+1 > GOTO 320,350,380,410 
••*•430 FOR J=1 TO 500 
★430 FOR J=1 TO 1000 
★ 1150 I =GET * * 

' *1 150 GET It t . ' * % 

■*1150 GET It : IF* lt="“ THEN GOTO 1150 


28 . 



Adding to the game 


This game is really made up of two parts. In the first part you set off onyour 
space journey with the aim of orbiting the planet and in the second you 
attempt to land on the planet. You could perhaps try adding a third part in 
which you make the treacherous crossing from the landing site to the 
Intergalactic Red Cross ILQ. 
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Touchdown 


This game is different from the others in this book because it uses graphics. 
As the computers vary so much in the way their graphics work, there isa c 
separate program for each one. Read the instructions on this page for how 
to play the game and then look through the pages that follow for the version 
for your computer. 

How to play Touchdown 

Ace space pilot, Captain Flash, is sitting next Eo you as you take the final 
part of your Advanced Spacecraft Handling Test (Part III), Your 
lightweight, two -man landing craft is rapidly approaching the Moon’s 
surface. Your velocity must be almost zero as you touch down. Deftly you 
control the thrust, pressing A to increase it and D to decrease it* , watching 
your progress on the screen all the time. If you use too much thrust you will 
begin to go back up again. Too little and you will make a new crater on the 
Moon. Can you impress Captain Flash with your skill ? 

*For VIC, use the cursor down key to increase thrust and the cursor right 
key to decrease it. 


Touchdown: TRS-80 version 

20 CLS 

30 CLEAR 200 

31 B*-5TRING* (25, 131 > 

33 Ml*=CHR*ll94>+STRING*(2* 176* 

34 M2*^" "+STRING*<4 + 191 > 

35 M3*«CHR*U31 > +CHR* ( 135> +5THrNl3* 
\2 „ I 31 >+CHR* ( 139> *CHRt ( 13U 

40 GOSUB 250 
50 GOSUB 300 
60 C»1j GOSUB 390 
70 A=i*:B=F:G05UB 46< > 

SO A=2 ; B— ABS < V> = GOSUB 460 
90 A~3:B-H:GOSUB 460 
100 A=4;B=Tj GOSUB 460 
HO GOSUB 530 

120*Ul=V-T/20+G : F=F T/JO 

130 HI =H- ( V+Vl > / l O 

140 C-0: GOSU& 390 

150 IF H J <0 THEN 200 

160 H=H1:V=V1 

170 IF H<=100 THEN 60 

ISO GO SUB 590 

190 GOTO 220 

200 H-0 ; C- 1 = SnSUB 390 

210 GOSUB 660 

220 END 

250 11=100: F=10Q: i 3 0 
260 V— I NT i RND (O>tl0+6> 

270 G=1NT 1 RND <0> <40+41 )/ 100 

2S0 RETURN 

300 FOR X=0O TO 127 

320 SE1 (X, 47-lNl (RND(0>*5 > > 

330 NEXT 

340 PRINT "GRAV1TV=";G 
350 PRINT 3192, "FUEL; " 

JU 1 


355 PRINT *384, 1,1 VEL: 11 
360 PR 1 NT 3576* "HE I GHT i " 

365 PRINT 5768, "THRUST: " 

370 RETURN 

390 V=0t0-64*]NT (H/0) 

400 PRINT i IF C=i THEN PRINT 

hit; ELSE PRINT CHR* ( 196) ; 

410 PRINT 3Y+64,; : IF C= 1 THEN 

PR TNT M2*; ELSE PR TNT CHR* 

( l^B) ; 

420 PRINT 3Y+120,; : IF C~1 IHEN 

PRINT M3$ ; ELSE PRINT FHR* * 
(19H) 

440 RETURN * 

460 Y= < A*3+l ) *64 

470 PRINT 5Y,CHfi*t217J ; 

4 SO PRINT 3 Y , LEF T! < B* , B / 4 ) ; 

510 RETURN 
530 I*=INK£Y* 

540 IF THEN T=T + 4 ; FF 

T>100 THEN T=10O 
550 IF 1 1 — " D lh THEN T = T- 4 : IF 

T£0 THEN T=0 
560 IF T>F THEN T=F 
570 RETURN 
590 CLS 

600 FDR 1=1 TO 20 

610 PRINT 3 1 NT fRND ( OJ 1 1024) * “ *** » 
620 NEXT 

630 PRINT -2470, "LOST IN SPACE?!" 
640 RETURN 
650 CLS 

660 PRINT "LANDED AT VEL - ; 

1NT t (V+V 1) *5> /10 

670 IF (V+VIX6 THEN PRINT "SAFELY 
ELSE PRINT "ALL DEAD" 

680 RETURN 



Touchdown: VIC 20 version 

70 PRINT CHR* ( 147>CHR*<5) ; 

25 POl'E 36979,8 

30 DEF FNR < X > = I NT < RND f 1 ) (XH ) 

40 GGGU8 250 t 

50 GOStJB 300 

60 C-I^GGSUfi 390 

70 A=1 jEr-FsGOSUB 460 

80 A^2s 8^A8S(V> iGOSUB 460 

90 A=3sB=HsG0SUB 460 

lOO ft- 4: B^T:GOSLIR 460 

MO GOSU& 530 

120 VJ=V-T/20+G = F«F-1*/ 10 
130 HI =H - ( V + Vl ) / 10 
140 C-0: 505UB 390 
150 IF HKO f HEN 200 
160 H=HlsV=Vl 
170 IT H< =1 OO THFN 60 
180 GDSUB 590 
190 GOTO 220 
200 H=0 5 C= I i GOSUB 390 
210 80 SUE 660 
220 END 
250 
260 
270 
200 
300 
320 
330 
340 
350 
355 
360 
365 
370 


390 Y=8137— 22*fNT (H75> 

400 IF C=0 THEN 425 
405 POK E Y , J OR : POKE Y+ 1 , 1 23 
410 POKE Y+22,160 ; POKE Y+23* 160 
415 POKE Y+44,75 ; POKE Y*45,74 
420 GOTO 440 

475 FOR Z-O TO 44 STEP 22 

430 POKE Y + Z , 32 : POKE V+Z+l p 32 

435 NEXT 

440 RETURN 

460 FOR X=0 TO 9 

470 Y=A*8G+ X+7724 

490 IF XC&/JO THEN POKE Y T l02 : 

GOTO 500 

485 IF X < B / 1 0 + . 5 THEN POKE 7,92 : 
GOTO 500 
490 POKE Y, 32 
500 NEXT 
510 RETURN 
530 GET I % 

540 IP I*="0r THEN T=T+4 s IF T>JOO 
THEN T^lOO 

550 IF I *[.])" THEN T=T-4 : IF T<0 

THEN T-0 

560 IF T >F THEN T -F 

570 RETURN 

590 PRINT CHR*tt47) 

600 FOR 1=1 TO 20 

610 POKE 7679+FNR (506) , 42 

620 NEXT 

630 PRINT "LOST IN SPACE f * " 

640 RETURN 

650 PRINT CHR*U 47) “LANDED" 

660 PRINT "AT VEL ” ? INT ( tV+VI) *5 ) ftO 
670 IF (V+VlXB THEN PRINT "SAFELY" 

: RETURN 

680 PRINT "ALL DEAD” s RETURN 


E§] is cursor down key 
0 is cursorright key 


FNlOOiF^lOO: T=0 
V=5+FNR ( 10> 

G“ (FNR t4o) +40> /lOO 
RETURN 

FOR X=?8 1 78 TO 01 85 
POKE X, 98+7* FNR (3> 
NEXT 

"GRAVITY-" | G 
"(GiPFUELs * 
"®gVEl s " 
"XiOtSHEIGHT: " 
'titM THRUST i - 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

RETURN 



Touchdown: ZX81 version 
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20 

CL S 



30 

l ET 

B* = ,l [666 

40 

GOSUB 

250 

50 

GOSUB 

30'> 

60 

1 FT 

C = 

1 

65 

GOSUB 

390 

70 

LE I 

A= 

1 

75 

LET 

B = 

F 

77 

GOSUB 

460 

SO 

L El 

n- 

2 

85 

LET 

B = 

AB5(V> 

B7 

GOSUB 

460 

90 

LET 

A- 

3 

95 

LET 

B- 

H 

9/ 

8U5UB 

460 


l 666 6666 666666 6 666666 J 


100 LET A-4 
105 LET &=T 
107 GOSUB 460 
1 10 GQSUB 530 
120 LET V 1 — V-- T / 20 + 8 
125 LET F=F-T / 10 
130 LET HI ~H - f V+Vl >/lO 
140 LET C=0 
145 GOSUB 3W 
150 IT HKD THEN GOTO 200 
160 LET H-Bl 
165 LET V=VI 

L 70 IF H< = IOQ THEN GOTO 60 

180 GOSUB 590 

190 GOTO 220 

200 LET H-0 

205 LET C=1 

207 GOSUB 390 

210 GOSUB 660 

22p STOP 

H= 1 00 
F=100 
T — O 

V=5+ 1 NT (RND*10+1> 

270 LET G=^INT CRNDM0+4O) /10O 
280 RETURN 

300 PRINT AT 2 1 , 20^ " C SDAD5ADAS .1 " 
AT 0,0; "8RAVI rY=";S 
AT 3,0; "FUEL ; M 
AT 7,0; J| VFt s Bl 
AT 11,0; "HEIGHT: " 

AT 15*0; " THRUST : n 


250 Lb 1 
252 LET 
255 L FT 
260 LET 


340 PRINT 
350 PRINT 
355 PRINT 
360 PRINT 
365 PRINT 


370 RETURN 

.’90 LET Y- ( 100 -HJ 76+ J 
400 IF C=0 THEN GOTO 42! 

405 PRINT AT Y , 24 ; " l 34 1 ' 

410 PRTNT AT 
415 PRINT AT 
420 GOTO 440 
425 PH INI AT 
430 PRINT AT 
435 PRINT A? 

4 40 fit T I }RN 

460 LET V = A*4 

470 PRINT AT Y t 0; TAB(20) 

480 PRINT AT Y T 0;B*< TG B/5> 


Y+1,23; H CQ Wl 1 
Y+l , 23; "LTGGY3 1 

Y,24;“ ” 

Y+l ,23;" 

Y + 2* 23; " 


310 RETURN 
530 LET IH-INKIY* 

54 u IF THEN LET T-=T+4 

545 IF l >100 THEN LET T=IOO 
550 IF I 4~"D" THEN LET T = T-4 
555 IF \<0 THEN l FT T=0 
360 IF I ^F THEN LET T -F 
57o RE I URN 
590 O S 

6 (.tO FOR I>1 TO 20 

610 PRINT AT I NT (RMD*22l r 
INT (RN0I32J ; p 1 Pl 
620 NEXT l 

630 PRINT AT LO, lOy "LOST IN SPACE" 
640 RETURN 

650 CLS 

660 PRINT AT 20, O; "l ANDED AT VEL " 

; INT < <V+VI >*5) 710 

670 IF (VtVll'R THEN PRINT "SAFFt V p 
675 IF <V + VD> = B THEN PRINT 
"AL I DfcAl/’’ 

6E3n RETURN 


Special note for 
ZX81 users 

Graphic characters are shown 
in the listing using ths 
following convention, A 1 
character means press the 
GRAPHICS key, and then type 
the Tol lowing 1 etter &/ luimber 5 
SHIFTED until "3’ is 
reached* when you type the? 
GRAPHICS key again, and go 
back to normal T 




Touchdown: ZX Spectrum version 

20 CL 5 

30 DEF FNr (X>^INT (RWDtx + n 

30 GOSUB 250 

50 GOSUB 300 

60 LET c=Oi GOSUB 390 

70 LET a=i: LET b=f = LET c=2*<f<25) 

75 GOSUB 460 

80 LET a=2 = LET b-ABS v; 

LET c^4*{ v <0) 

85 GOSUB 460 

90 LET a=3: LET b=h; LET c=2* fh<25> 
95 GOSUB 460 

ICO LET a=4 = LET b-t; LET c-0 
t 05 GOSUB 460 
HO GOSUB 530 

120 LET vl=v-t/2Q+gs LET f^f-t/10 

130 LET hl=h-Wtvn/lO 

140 LET c-li GOSUB 390 

150 IF h 1 <0 THEN GOTO 200 

160 LET h=h 1 ; LET v = vl 

170 IF h< =100 THEN GOTO 60 

180 GOSUB 590 

190 GOTO 220 

200 LET h-0; LET e^-0: GOSUB 390 
210 GOSUB 650 
220 STOP 

250 LET h= 1 00: LET f=100l LET t^O 
260 LET v=5+FNr MO) 

270 LET G= (FNr (40>+40) /lOO 

280 RETURN 

300 PLOT 180,8 

310 FOR a= 1 TO 15 

320 DRAW 5,FNr<3>-2 

330 NEXT k 

340 PRINT ( 'Gravi t y=" ; g 

350 PRINT ” “Fuel ! ,,f ’ i,K Vets 11 

360 PRINT r * r u Hei ght •"**** "Thrusti " 

370 RETURN 

390 INVERSE c 


410 PLOT 200, y : DRAW 34,0 

420 DRAW -4,20= DRAW -13,10 

430 DRAW -13,-10: DRAW -4,-20 

440 RETURN 

460 LET y=172-a*32 

470 INK c 

480 PLOT O, y 

490 DRAW b,0 

500 DRAW INVERSE i,100-ta,0 

510 RETURN 

530 LET i DINKEY* 

540 IF a" THEN LET t = t+4 r 

IF t>100 THEN LET t^J 00 
550 IF i THEN LET t=t-4 = 

IF t<Q THEN LET t=0 

560 IF t>4 THEN LET t=f 

570 RETURN 
590 CLS 

600 FOR i =1 TO 20 

610 PRINT AT FNr (21 > , FNr (31 > ; W * M 
620 NEXT 1 

630 PRINT "Lost in space! M* 

640 RETURN 

650 PRINT AT 0,0; "Landed at 
I NT i (v+vl>15) /\0* 

660 IF tv+v 15 <8 THEN GOTO 6B0 
670 PRINT "All dead": RETURN 
6B0 PRINT ''Sa-fely": RETURN 






Touchdown: BBC version 


20 MODE 5 
30 tr X 12, 1 
40 PROCSETVAR 
50 PROCDJ SPLAY 
SO PRQCMODULE < H , 31 
70 PROCBAR< l,P,3+2f (F<25> ) 
80 PRDCBAR<2, ABSV+3+ «V O) ) 
90 PftOCBAR<3 f H„3+2> <H<25> > 
10O PROCPAR (4, T , 3> 

I lO PRPC THRUST 

120 V1-V T/20+G : F=F-T/10 

130 HI =11- TV + Vl ) / to 

140 PROCMODULE (H ? 0> 

150 IF HKO THEN 200 
160 H=H1 : V=V: 

170 IF H:=100 THEN 60 
180 PROP 05 T 
190 GOTO 220 
200 PROCMDDULt tQ*2> 

210 FFiOtLAWDFD 
220 *FX 12 
230 END 

240 DEF PRDCSETVAR 
250 H=1O0iF=100eT=0 
260 V“5 + RWP CIO) 

270 GMRND<40)+40) VlOO 

280 ENDPROC 

290 DEF PROCDISPL AY 


490 PLOT 85 + V*4 r Y i PLOT 85,V*4,Y-I6 
500 PLOT 87 1 400 „ Y : PLOT 07,400. V-14 
510 ENDPROC e 

520 DEF PROC THRUST 
530 try. 15,1 

540 IF INKEY 1-1941 THEN T = T+4 ; 

IF T > 1 GO THFN T=100 
550 IF I NKEY ( - 1 79 > THEN T=T~4 s 
IF T<0 THEN I "O 
560 IF T>F THEN T~F 
570 ENDPROC 
580 DEF PRQOL0ST 
590 CLS 

600 FOR 1=1 TO 20 

610 VDU 31 , FIND ( 1 9> , RND ( 31 > , 42 

620 NEXT 

630 PRINT TAB < 4 ? 1 6> "LOST IN SPACE'?" 

640 ENDPROC 

650 DEF PROCLAN DED 

660 VDU 28, 0,31, 1 1 , 0 f 12 

670 PRINT y "LANDED" 

680 PRINT * "AT VEL H | I NT ( (V+V| > *5 > f lO 
690 IF (V + V1X8 THEN PRINT ’"SAFELY" 
ELSE PRINT T "ALL DEAD" 

700 ENDPROC 



300 MOVE 800,30 

310 FOR X =800 TO 1200 STEP 16 

320 DRAW X, 10+RND<4F0 

330 NEXT 

340 PRINT 'GRAVl TY=”;G 
350 PRINT ^ ^ "FUEL: * > ' * ' -, VFLj 

360 PRINT • ■ '"HEIGHT: 11 * * J ? '' "THRUST : ,F 
370 ENDPROC 

380 DEF PROC NODULE t H, C > 

390 GCDL 0,C 
400 Y=H*0*54i5O 

410 MOVE 1040, Y : PL Of 1,-40, -40 
420 PLOT 1 , -8 # -60 ; PLOT 1 ? 96 , O 
430 PLOT (,“8,60 * PLOT U 40, 40 
440 ENDPROC 

450 DEF PROC PAR < N, V , C > 

460 Y=IOOO-192tN 
470 GCDL O f C 

-ISO MOVE Q,Y s MOVE O f Y-16 


Touchdown: Apple version 


15 HOME 

20 KGR 

30 DEF FNR<X1=JNT IRNDM > *H+1> 

40 GQSUB 250 

50 G05UB 300 

60 C=3i GQSUB 390 

70 A = 1 : B=F : GOSUD 460 

SO A-2; B=AB3 (V) : GOSUB 460 

90 A=3: B=H : GOSUB 460 

1 OO A = 4; B-T ; GOSUB 460 

l 1 0 GOSUB 530 

120 Vl^V T/20+G ; f^F-T/10 

130 HI— H- fV+Vl >/lO 

140 OO: GOSUB 390 

150 IF HI <0 THEN 200 

160 H=HI:V=V1 

170 IF H<=100 THEN 60 

ISO GOSUB 590 

190 GOTO 220 

200 H=0:C=3; GQSUB 390 

210 GOSUB 660 

220 END 


310 FDR X e O TO 279 STEF 5 
320 HPLOT TO X t l59-FNRU0> 

330 NEXT 

335 FDR I^J TO 30 ; HPLOT FNRt279>, 
FNR(150> 

337 NEXT 

340 V TAB 21 ; PRINT TAB (345 ; W G="; G 
350 VTA8 21 ; PRINT "FUEL:' S ; 

PRINT "VELi" 

360 PRINT "HEIGHT: H ; PRINT "THRUST : " * 

370 RETURN 

390 HCOLOR=C 

400 V= UOO-H) t|.3 

410 HPLOT 1 40 t ¥ TO 120,Y+3O 

420 HPLOT TO 120,Y+2Q ; 

HPLOT TO 160, Y+20 

430 HPLOT TO 16O f Y+10 : HFLOT TO 140,Y 
435 HPLOT 1 55 * Y + 20 TO l60„Y+25 
437 HPLOT 125 1 Y + 20 TO 120 t Y+25 
440 RETURN 

460 VTAB (20+A5 j HTAB B 
470 INVERSE 


250 H«lOQ;F=300lT=O 

260 V=S+FNR ( I O ) 

270 G— ( FNR ( 40 3 +40 > / 1 OQ 
280 RETURN 
300 HCOLOR— 3 
305 HFLOT O, 155 


480 PRINT SPC(B/4>; 

490 NORMAL 

500 PRINT SPC ( 26— B/4 > ; 

510 RETURN 

530 1*="" s IF PEEK (-16364) >127 
THEN GET I* 

540 IF 1*= ,, A 1 ' THEN T-T+4 ; 



IF T>100 THEN T=iOO 
550 IP I*= H4 D" 1 HEN r=T-4 ; 

TF T<0 THEN T-0 
560 IF T >F THEN T = F 
570 RETURN 
590 HOME s VTAB 23 
600 PRINT "LOST IN SPACE ! w 
640 RETURN 
660 HOME ; VTAB 22 
670 PRINT "LANDED AT VEL “ ; 

INI f *V+V1 >*5) /10 
680 IF (V+V1K8 THEN 700 
690 PRINT "ALL DEAD" : RETURN 
700 PRINT 'SAFELY" ; RETURN 



Adding to the programs 


Making the computer 
stop and wait for you 


Here are some ideas for additions 
you can make to the programs in 
this book or to your own programs. 
In most cases you won't be able to 
add these to aZXSl with only IK as 
the games themselves fill almost all 
its memory space, but you should 
find there is plenty of room on the 
other computers. 

Remember you will either have to 
restrict your additions to the spare 
line numbers in a program or 
renumber the program. If you 
decide to renumber, take care you 
change all the GOTO and GOSUB 


come ou 

UP‘ 


If your instructions are very long, you 
may want to insert this sub- routine 
which stops the program running at a 
particular point until you press a key 
This way you can stop the instructions 
scrolling off the top of the screen 
before you have read them. Put a 
GOSUB line at the place you want the 
program to stop and then put this sub- 
routine at the end. 


lines too. 


lOOO RH1NI "PRESS A KEY TO CONTINUE 


■ SZX1010 IF INKEV«»"“ THEN GIITO 1010 


Getting the computer to tell you 


★1010 I*=GET* 
#1010 GET It 



how to play 

You can add a 
section to any 
program to make 
the computer print 
instructions telling 
you what to do, The 
easiest way to do 
this is to add some lines, such as those 
below, at the beginning of the 
program and then put a sub- routine at 
the end. 


THEN GOTO 1010 


AIOIO GET I t 
1020 PRINT 
1030 RETURN 


TW 3 IS 
HO iO 


Making the computer '"talk" to 
you 


r jjoflw. a 

iiJM OJOVY 


10 PRINT ■TITLE OF GAME" 

11 PRlNt "DO YOU WANT TO” 

12 PRINT ^NDW HOW TO PLAY?" 

15 INPUT It 

£2X17 IF ltd )=■■¥" THEN GOSUB l GOO 
*■*# 17 IF LEFT* fl* f 1>="V" THEN GOSUB 1 

main program goes here 

1000 PR INI " UJ1 IA ■ YOU HAVE TO" 

1010 PRINT "DO 
IW7 RETURN 

You can add as many print statements 
as you like for the instruct ions Just 
remember to put a number and the 
word PRINT at the beginning of each* 
one. Restrict the length of the part 
inside the quotation marks to the 
number of characters your computer 
can print on one line. Den t forget to 
put a RETURN line at the end or the 
36 program won t wor k + 


You can make the computer ask you 
questions and react to your answers. 

For instance, here is an addition which 
will make the computer refuse to play 
with you unless your name begins with J. 

1 PRINT 11 WHAT IS YOUR NAME^" 

2 INPUT I* 

3 IF THEN GOTO IGOO 

3 IF LEFT* C It* U< >"J M THEN GGTD 1 OGO 

4 PRINT ’OK -YOU CAN PLAY.* 1 

5 PRINT -ARE YOU READY' 1 ” 

6 INPUT J* 

2x7 if Jtaxrr then goto 5 

|4#7 IF LEFT* t J*, IX^Y" THEN GOTO 5 


main program here 

1000 PRINT "SORRY THIS OAME IS” 
101Q PRINT "ONLY FOR PEOPLE. 

1020 PRINi "WHOSE NAMES BEGIN" 
1030 PRINT “WITH J” 



Here is another one where the 
computer dares you ro be brave 
enough to play. 

10 PRINT "VERY SCARE v GAME" 

12 PRINT "ARE YOU BRAVE ENOUGH" 

14 PRINT “TO TACKLE THE GREEN" 

15 PRINT "HAIRY MONSTER'’" 

16 INPUT I* 

S ZX17 IF liU)=”Y" THEN GOTO 20 
#li(i7 IF LEFTtd*, 11=”Y" THEN GOTO 20 
10 PRINT "COWARD" 

19 STOP 


cases you can add a single line to your 
program at the place you want the 
sound. In others, you need several 
lines and it is best to put these in as a 
sub -routine. 

As an example, here is the sound of 
a shot for the BBC. You can experiment 
with where to put it in the program, but 
you must give it a line number to make 
it work: 

SOUND O, 15,5,10 

At the back of the VIC manual you 
will find some useful sub- routines for 
sounds such as "laser beam”, 
'explosion" and “red alert" Put a 
GOSUB line where you want the sound 
to appear, number the sub -routine and 
add a RETURN at the end of it. 


Y ou could combine this with the 
instruction sub routine by taking lines 
1 1 ro 17 from the instructions section 
on this page and putting them at lines 
20 to 26 of this program. You can then 
stan the main program at line 30 and 
add the instruction sub-routine at the 
end. 


Would you tike another go? 

Instead of typing RUN each time you 
play a game, you can make the 
computer ask you if you’d like another 
go Put these lines at the end ofthe 
program, just before the last STOP 
statement. 

lOOO PRINT "DO YOU WANT ANOTHER GD7" 
1010 INPUT !• 

SZX102Q IF [*<|>" 1, V THEN RUN 
*■*•1020 IF LEFT* I I * , 1 ) = " Y 11 THEN RUN 
1030 PRINT "OK THEN - BYE" 

1040 STOP 



Change line 
numbers according 
to your program. 

Adding sound effects 


The BBC, VIC 20, ZX Spectrum and 
some Apples are able to produce 
sounds and you can add lines to your 
programs to make them do so at 
appropriate places. You could add an 
explosion for instance, or a little tune 
which plays if you win. All the 
computers need different instructions 
to make sounds though, so you will 
have to look at your manual. In some 



Special note for BBC and . 
Spectrum users m ^ 

If you have a BBC or a ZX Spectrum 
you may find that some of the games 
in this book run too fast for you. You 
will find a box next to these games 
containing instructions for 
changing the speed. Remember, to 
slow the game up you always need 
to use a higher number. Later 
models of the BBC may run up to 
twice as fast as the earlier models, 
and this could make the games 
appear impossible on the first run. 

Be prepared to make big changes 
to the speed number to correct this. 
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Writing your own programs 


As you work through the games in 
the book, you will probably find 
yourself making more and more 
changes to them and eventually 
wanting to write new games of your 
own. On these two pages you will 
find some hints on how to set about 
doing this. 





"It can tell you the results of its 
calculations and decisions and also 
3B what is stored in it s memory. 


* Provided you use its language 
correctly, it can do only exactly what 
you tell it, even if it is silly . 

Remember, when you are trying to 
work out a game, not to include 
anything which your computer won't 
be able to do. 


Before you start, it is a good idea to 
stop and think about what your 
computer can and cannot do. 


* It can ask you for information, 


* It can store information 


* It can do calculations. 


* It cannot do anything unless you tell it 
to. 


* It can make decisions by comparing 
items of information in various ways. 


"It can select numbers at random by 
using RND 




Planning a game 


Writing the program 


Before you can tell the computer ho w 
to play your game, you must know 
exactly how to play it and what the 
rules are yourself. The computer will 
need a series of simple logical 
instructions, so work out your game in 
your head or on paper first and then 
break it down into simple steps. 

Next write a plan (in English - don’t 
try to use BASIC yet ) of all the stages of 
the game in order. 

Here is a plan for a simple shooting 
game, such as firing cannon balls at a 
pirate ship or shooting laser beams at 
an alien invader, to give you an idea. 



PLAN 

1) PRINT TITLE AND 

instructions 

2) CHOOSE A TARGET 
FOR THIS CrAtAE 

3) 8 EqiN A LOOP TO 

cive the player 

N COES 

40 GET A SHOT FROM 
the Player 

s) CHECK IF SHOT WAS 
ON TARGET 

6) PRINT MESSAGE 
DEPENDING ON 

accuracy of shot 

7) 40 QACK FOR 
ANOTHER qc if SHOT 

WAS UNSUCCESSFUL > 


The next stage is to convert your plan 
into BASIC. Each step in your plan may 
need several lines in BASIC, Don't 
forget to leave gaps when numbering 
your program lines so you can go back 
and add extra ones if you need to. 

Do a first draft of the program on 
paper first and then start testing on the 
computer. Your computer will spot 
errors much more quickly than you 
will see them yourself and may give 
you a clue as to what is wrong. 
Remember that debugging programs 
is a long, tedious process even for 
expert programmers, so don t expect 
to get yours right first time. 


i&SJ&d u 



Once you have got the core of the 
program working, you can add to it. 
Scoring, extra comments, more 
targets etc. can all be incorporated 
later. You could add sections from the 
programs in this book to your games. 

Don’t expect to be able to write 
exciting and original games straight 
away. Keep your ideas very simple 
and be prepared to adapt them as you 
go along. You may find you have 
included something in your game 
which is easy for humans to do but 
very difficult for a computer. As you 
get more experienced you will begin 
to know instinctively what your 
computer can do and find it easier to 
write programs for it. 
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Summary of BASIC 

This section lists some common BASIC words and describes what they 
make the computer do and how they are used. Most of them have been used 
in the programs in this book, so you can check back through the book to see 
how they work in a game. Not all the words can be used on alithe 
computers mentioned in this book. The conversion chart on page 46 shows 
what you can use instead. 



LET tells the computer to label a section of its 
memory and put a particular value in it e.g, LET 
A= 6 means label a section of memory “A" and put 
the value 6 in it. 11 A” is called a “variable" and putting 
something in it is called “assigning a value to a 
variable". 

Some variable labels are followed by a dollar 
sign e.g. A$. This means they are for ‘ strings ’, 
which can contain any number of characters, 
including letters, numbers and symbols. 



PRINT tells the computer to display things on the 
screen and you can use it in several ways: 

A message enclosed in quotation marks with 
PRINT in front of it will be displayed on the screen 
exactly as you typed it. The section inside quotes 
does not have to be in BASIC, it can be anything you 
like. 

PRINT followed by a variable label e g PRINT A 
or PRINT A$ tells the computer to display the 
contents of that variable on the screen. 

PRINT can also do calculations and then display 
the results e.g, PRINT 6*4 will make the computer 
display 24. 

You can use PRINT by itself to leave an empty 
line. 


l*LVl. 


I'kJ.UlLtiA.r 


RND tells the computer to choose a number at 
random. Different computers use differen t forms of 
RND and you can see what these are in the 



conversion chan on page 46 On Sinclair computers 
RND by itself produces a number between 0 and 
•0.99999999. You can vary the limits of the number it 
Chooses by multiplying RND and adding to it. E.g. 
RND*20 produces a number between 0 and 
19.99999999, while RND *20 + 1 produces a number 
between 1 and 20.99999990. 

See INT for how to produce only whole numbers, 

See CHK$ for how to produce letters and other 


40 


keyboard characters at random, 


I N'T is short for integer, which means whole 
number. For positive numbers, it tells the computer 
to ignore everything to the right of the decimal 
point. E.g, INT(20.999) is 20. For negative numbers, 
it ignores everything to the right of the decimal 
point and “increases' 1 the number to the left of it by 
one e.g. INT( - 3.6) is - 4. 

INT is often used with END. like this: 
INT(RND‘20+ 1) which tells the computer you want 
it to choose a whole number between 1 and 20. 


CHRS converts numbers into letters. Apart from the 
ZX8 1 , all the computers in this book use the 
ASClPsel of keyboard characters in which each 
character corresponds to a certain number. E.g, 
letter A has the code number 65 and PRINT 
CHR$(65) will display an A on the screen. 

You can use CHRS with INT and END to make the 
computer select random letters, like this: 

C HR$( INT( RND ‘ 26 + 65 )) 

This line will produce random letters on a ZX 
Spectrum (see conversion chan for other 
computers). 




FOR is used to stan a “loop 11 which will make the 
computer repeat part of a program a cenain 
number of times. It must be followed by a var iable 
(such as G to stand for the number of goes allowed 
in a game), and the variable must be given start and 
end values (such as 1 TO 10.) 

The end of the loop is marked by a NEXT line 
(NEXT G in this example) which increases the value 
of the variable by 1 each time and then sends the 
computer back to the FOE line again. When the 
variable reaches its end value, the computer 
ignores the NEXT line and carries on to the line 
which follows it. Every FOR must have a NEXT or 
you will get a bug. 



INPUT labels a space in the computer's memory, 
prints a question mark and then waits for you to 
type something which it can put in this memory 
space. It will not carry on with the rest of the 
program until you press RETURN, ENTER or 
NEWLINE, 

You can use number or string variables with 
INPUT, but if you use a number variable the 
computer will not accept letters from you. 



‘American Standard Code for information Interchange (see page 4S) 





INKEYS checks the keyboard to see if a key is 
being pressed and if so which one. It does not wait 
for you to press a key like INPUT does. It is usually 
used in a loop which makes the computer go round 
checking the keyboard lots of times. This is 
because computers work so quickly, you wouldn't 
have a chance of pressing a key in the time it takes 
the computer to do one check. 

If you haven't pressed a key before the loop 
finishes, the computer carries on with a string 
containing nothing (called a ' null" string). 

NB Apple and VIC do not use INKEY$. 


GET is used instead of INKEYSon VIC and Pet 
computers. 


GOTO makes the computer jump up or down the 
program ignoring the lines in between. You must 
put the number of the line you want it to jump to 
after the GOTO instruction. 


GOSUB tells the computer to leave the main 
program and go to a sub-routine. GOSUB must be 
folowed by the number of the first line of the sub- 
routine. At the end of the sub-routine you must have 
a RETURN line. This sends the computer back to 
the main program to the line immediately following 
the GOSUB line. A GOSUB without a RETURN in a 
program will give a bug. 


IF . . . THEN tells the computer to decide if an 
expression is true or false, and do different things 
depending on the answer. It is used with the 
following signs, and also with AND or OR: 

= the same as 
< less than 
> greater than 

< = less than or the same as 

> = greater than or the same as 

< > not the same as 

If the computer decides an expression is true, it 
carries onto do the instruction which follows 
THEN. If it decides it is false, it ignores the rest of 
that line and goes on to the next one. 


CLS is used to dear everything off the screen 
without removing or changing anything in the 
memory. It is useful for removing the listing from 
the screen at the beginning of a RUN or in games 
when you want the player to react to something 
seen for a limited amount of time. (NB Apple and 
VIC do not use CLS see conversion chart). 




HOME is used by Apple computers instead of CLS 
to dear the scree n. 


ABS ignores plus and minus signs in front of 
numbers and takes their "absolute” values E.g. 


ABS( - 10) is 10 and ABS{ + 10) is also 10. 


VAL takes the numeric value of numbers written as 
strings. In effect, it tells the computer to ignore the 
dollar sign and treat the string as an ordinary 
number variab le, E , g, if 1$ “60 " then V AL(I$) is the 
number 60. 



ASC converts a character into its ASCII code 
number e.g. ASC("3”) gives 51. The expression in 
brackets must be a string e.g. ASC( A$) or 
ASC(“2G”). 

NB ZX81 andZX Spectrum do not use ASC, though 
the Spectrum does use the ASCII code. 


CODE is used by ZX81 and Spectrum in place of 
ASC, Like ASC it must always be followed by a 
string. Remember that the ZX81 uses different code 
numbers from the other computers. 



TAB moves the cursor across the screen to a 
specified column number. It is usually used with 
PRINT to display something in the middle of the 
screen. The number of spaces you want the cursor 
moved is put in brackets after TAB. The maximum 
number you can use depends on the screen width 
of your computer . 





SGN tells the computer to find out the sign of a 
number. It produces - 1 for a negative number, 0 
for zero and + 1 for positive numbers. E g. 

SGN{ - 30) is - 1, SGN(7) is 4 1 and SGN{0) isO. 



DIM tells the computer how much memory space 
will be needed for an "array" (a row or a grid). E.g. 
DIM X{6) tells the computer to set aside an area 
large enough to contain a row of 6 elements and 
labelled X. DIM A(8,8) means a memory space 
labelled A and big enough to take 8 elements 
across and 8 down is needed. The number of 
elements of data used in the program must 
correspond to the numbers in brackets after DIM 
or you will get a bug. 

SQR takes square roots of numbers. E g. SQR( 1 6) 
gives the answer 4. 


SIN calculates the sine of an angle. In a right-angled 
triangle the length of the side opposite an angle, 
divided by the length of the hypotenuse (the side 
opposite the right angle) is the sine of that angle. 
When you use SIN in a program, the angle you are 
using it with must be measured in radians, not 
degrees. 


ATN is one of the trig, functions which computers 
can calculate {see also SIN above). It stands for 
arctangent and it is important to remember that it 
gives an answer in radians, not degrees. You will 
need to use a maths book to find out how this works 
if you do not already know about it. 

STOP tells the computer not to go any further in a 
program. Computers other than the ZX81 can use 
END instead. 

PEEK is a way of finding out wha t is in a specific 
area of the computer’s memory. You need to use it 
with a number which specifies an ’address” in the 
memory. 

NB not used on BBC. 

POKE is a special way of putting information in the 
computer's memory by using a memory "address ’. 
NBnot used on BBC 



ASCII chart 


ZX81 code chart 


Code 

ASCII 

Code 

ASCII 

number 

character 

number 

character 

32 

space 

62 

> 

33 

1 

63 


34 

19 

64 

& 

35 

# 

65 

A 

36 

$ 

66 

B 

37 

% 

67 

C 

38 

& 

68 

D 

39 

f 

69 

E 


( 

20 

F 

41 

) 

21 

G 

! 42 

* 

22 

H 

43 


23 

I 

44 

1 

24 

J 

' 45 

— 

75 

K 

46 


26 

L 

47 

/ 

22 

M 

43 


78 

N 

49 

i 

29 

O 


2 


P 

51 

3 

81 

~Q 

52 

4 

82 

R 

53 

5 

83 

5 

54 

6 

84 

T 

[55 

7 

85 

U 

56 

8 

86 

V 

52 

9 

87 

w 

58 

i 

88 

X 

59 

- 

89 

Y 


< 


z 

61 

— 




Chart of screen $i2es 


Code 

number 

— 

ZX81 

character 

Code 

number 

ZX81 

character 

n 

ii 

41 

D 

12 

£ 

42 

£ 

13 

S 

43 

F 

14 

: 

44 

G 

15 

? 

45 

H 

16 

( 

46 

I 

17 

) 

47 

1 

18 

> 

48 

K 

19 

< 

49 

L 

20 

= 

50 

M 

21 

+ 

51 

N 

22 

— 

52 

O 

23 

* 

53 

P 

24 

7 

54 

0 

25 

i 

55 

1 R 

26 

i 

56 

S 

27 


57 

T 

28 

0 

58 

U 

.29 

i 

59 

V 

30 

2 

60 

w 

31 

3 

61 

X 

32 

4 

62 

Y 

33 

5 

63 

z 

34 

6 



35 

7 



36 

8 



37 

9 



38 

_A 



39 

B 



40 

C 





Max. number of 
characters across 
(or number of columns) 

Max. number of 

lines down 

(or number of rows) 

VIC 20 

22 

23 

TRS 80 

64 

16 

BBC 

20/40/80 

16/24/32 

ZX81 

32 

22 

ZX Spectrum 

32 

22 

Apple 

40 

25 









Conversion chart 

This quick reference chart shows some of the variations in the BASIC used by the machines in this book. It does 
not include instructions for graphics, sound or colour as these vary so enormously from machine to machine. 
Note also that although most computers (except the BBC) use PEEK and POKE, they do not use the same system 
of memory addresses, so the numbers used with PEEK and POKE must be changed for each computer. 





Answers 


You may find that yom answers to 
some of the puzzles are different to 
the ones given here. As long as they 
work on your computer then this 
doesn’t really matter, but check to + 
see if they are as neat and simple as 
the answers in the book. 

Page 5 

StarshipTakeoff 

Lines 30 and 40 select the numbers 
which determine what the force will 
be. To increase the range of possible 
forces, you cart increase either the 20 
in line 30, or the 40 in line 40, or both of 
these numbers. Increasing the range 
of forces will obviously make the 
game more difficult. 

Page 7 

In tergalactic Games 

Change lines 222 and 230 as follows: 


Here are the changes to make the 
bugs appear in 5 places: 

70 LET R=1NT<RND*5+1) 

S ZX90 G05UB 2 20* 70* R 

■A*BO DN R GnSUB 2*0, 2AO, 200, 300,320 


240 

245 

250 

265 

270 

2BO 

285 

290 

300 

305 

310 

320 

325 

330 


LET D=5 
LET A=1 
GOTO 330 
LET D— 1 
LET 0=9 
GOTO 350 
LET 0=5 
LET A=ie 
GQTG 350 
LET D=10 
LET 

GOTD 350 
LET D= I 5 
LET A= 1 5 
GOTO 350 



To add more bugs, change the 10 in 
lines 30 and 230 to a higher number, 
(Make sure you use the same number 
for both lines.) 

Page 13 
Moonlander 


222 let B=R + INT ( 1000/G) 

230 GOTO 20 

and add a new line IS: 

15 LET B=0 

Page9 
Evil Alien 

Change lines 20 and 30 and add a new 
line 25 as follows: 

20 PRINT ■' HOW DIFFICULT^ «£ TP 30) 11 
25 INPUT S 
30 LET G^IWT«S/3> 

Page 11 

Beat the Bug Eyes 

To make the bugs appear in more than 
four places on the screen you need to 
put a higher number than 4 in the 
middle of line 70, change line 80 and 
add more sob-routines at the end of 
t he p rogr a m one for each e xt ra 
position. 


To increase the speed allowed for a 
safe landing, you need to make 
changes to lines 230, 240 and 250. You 
can use any numbers you like - the 
higher they are the easier the game 
will be. In this example, you are 
allowed a speed of 2 for a good 
landing and 7 for an OK landing: 

230 IF VI >7 THEN PRINT "YOU CRASHED 
- ALL DEAD" 

240 IF VI >2 AND Vl<^7 THFN PRINT "OK 
-BUT SOME INJURIES" 

250 IF VK-2 THEN PRINT "GOOD LANDING" 


Four ways of making this game harder 
are: 

1 Stan the game with less people in 
the group by putting a smaller number 
than 5 in line 40. 

2 Increase the number of monsters by 

changing the 4 in lines 20 and 30. Add 47 


Page 15 

Monsters of Galacticon 



extra monster names at lines 8 1 to 89 
using M£(5) and M$(6). 

3 Reduce the number of goes allowed 
by altering the 8 in line 160 

4 Increase the chance of the monster 
being angered irt line 330 by 
increasing .4 a little. 

Page 17 
Alien Snipers 

In this game, N is the code number. To 
change the scoring to fit the code 
number you need to increase the 
score by N each time instead of 1 , So, 
change line 190 as follows: 

SZX140 IF ]1=CHF4*{CO££lLtO+N) THEN 
LET S=S+N 

★ ■*•190 JF I*=CHR* (fiSC (LH *N) THEN 
LET SzS+N 

Page 19 
Asteroid Belt 

Y ou need to change line 260 so that the 
computer adds the number of stars to 
your score instead of 1, The number of 
stars is controlled by the value chosen 
for N in line 70, so, as in the puzzle 
above, you need to add N to the score. 
You also need to change line 320. 

260 LET S=S+N 

320 PRINT "YOU SCORED ‘iSj 11 POINTS" 

Page 21 

Trip into the Future 

1 To increase the range of years 
which must elapse before you return 
to Earth, change the 100 in line 30 to a 
higher number, e g. 150, like this: 

30 LET T= I NT <RND* 150+251 

2 To increase the accuracy from 5 to 2 
years, change the 5s in lines 180 and 
190 to 2, like this: 

ISO IF ABS(T~T2)<=2 THEN PRINT "YOU 
ARRIVED ON TIME" 

190 IF A&S<T-T2>>2 THEN PRINT "NOT 
Even close" 


3 Line 170 contains the number which 
determines the length of your lifetime. 
Change the 50 to a higher number for a 
longer lifetime. 

Page 23 
Death Valley 

You can make the valley longer by 
changing the number in line 30 to 
something higher than 200. 

Page 25 
Space Mines 

Add these lines to make the computer 
ask if you would like another game: 

643 PRINT "ANOTHER GAME'’ (TYPE Y OR N> * 

646 INPUT 0* 

647 IF A*="Y" THEN GOTO lO 

You must then a new line at 5 and 
change line 30 to add the money you 
ended up with at the end of the game 
to the money allowed for the new 
game: 

5 let h=o 

30 LET H=M+]NT (RND*50+lO> »P 

(Make sure you use the correct 
version of RND for your computer.) 
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